home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / gnu / a2_0bEmacs_bin.lha / Emacs-19.25 / lisp / term / wyse50.el < prev    next >
Lisp/Scheme  |  1994-05-03  |  5KB  |  151 lines
  1. ;;; wyse50.el --- terminal support code for Wyse 50
  2.  
  3. ;; Copyright (C) 1989, 1993, 1994 Free Software Foundation, Inc.
  4.  
  5. ;; Author: Daniel Pfieffer <pfieffer@cix.cict.fr> January 1991
  6. ;;    Jim Blandy <jimb@occs.cs.oberlin.edu>
  7. ;; Keywords: terminals
  8.  
  9. ;;; This file is part of GNU Emacs.
  10. ;;;
  11. ;;; GNU Emacs is free software; you can redistribute it and/or modify
  12. ;;; it under the terms of the GNU General Public License as published by
  13. ;;; the Free Software Foundation; either version 2, or (at your option)
  14. ;;; any later version.
  15. ;;;
  16. ;;; GNU Emacs is distributed in the hope that it will be useful,
  17. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ;;; GNU General Public License for more details.
  20. ;;;
  21. ;;; You should have received a copy of the GNU General Public License
  22. ;;; along with GNU Emacs; see the file COPYING.  If not, write to
  23. ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  24.  
  25. ;;; Commentary:
  26.  
  27. ;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
  28. ;; Rewritten for Emacs 19 by jimb,  January 1992
  29. ;; Cleaned up for new terminal package conventions by esr, March 1993
  30. ;; Should work well for Televideo TVI 925 although it's overkill.
  31. ;;
  32. ;; The Wyse50 is ergonomically wonderful, but its escape-sequence design sucks
  33. ;; rocks.  The left-arrow key emits a backspace (!) and the down-arrow a line
  34. ;; feed (!!).  Thus, you have to unbind some commonly-used Emacs keys to
  35. ;; enable the arrows.
  36.  
  37. ;;; Code:
  38.  
  39. (define-key function-key-map "\C-a" (make-keymap))
  40. (mapcar (function (lambda (key-definition)
  41.             (define-key function-key-map
  42.               (car key-definition) (nth 1 key-definition))))
  43.     '(
  44.       ;; These might be set up by termcap and terminfo
  45.       ("\C-k"    [up])
  46.       ("\C-j"    [down])
  47.       ("\C-l"    [right])
  48.       ("\C-h"    [left])
  49.       ("\^a@\^m"    [f1])
  50.       ("\^aA\^m"    [f2])
  51.       ("\^aB\^m"    [f3])
  52.       ("\^aC\^m"    [f4])
  53.       ("\^aD\^m"    [f5])
  54.       ("\^aE\^m"    [f6])
  55.       ("\^aF\^m"    [f7])
  56.       ("\^aG\^m"    [f8])
  57.       ("\^aH\^m"    [f9])
  58.  
  59.       ;; These might be set up by terminfo
  60.       ("\eK"    [next])
  61.       ("\eT"    [clearline])
  62.       ("\^^"    [home])
  63.       ("\e\^^"    [end])
  64.       ("\eQ"    [insert])
  65.       ("\eE"    [insertline])
  66.       ("\eR"    [deleteline])
  67.       ("\eP"    [print])
  68.       ("\er"    [replace])
  69.       ("\^aI\^m"    [f10])
  70.       ("\^aJ\^m"    [f11])
  71.       ("\^aK\^m"    [f12])
  72.       ("\^aL\^m"    [f13])
  73.       ("\^aM\^m"    [f14])
  74.       ("\^aN\^m"    [f15])
  75.       ("\^aO\^m"    [f16])
  76.       ("\^a`\^m"    [f17])
  77.       ("\^aa\^m"    [f18])
  78.       ("\^ab\^m"    [f19])
  79.       ("\^ac\^m"    [f20])
  80.       ("\^ad\^m"    [f21])
  81.       ("\^ae\^m"    [f22])
  82.       ("\^af\^m"    [f23])
  83.       ("\^ag\^m"    [f24])
  84.       ("\^ah\^m"    [f25])
  85.       ("\^ai\^m"    [f26])
  86.       ("\^aj\^m"    [f27])
  87.       ("\^ak\^m"    [f28])
  88.       ("\^al\^m"    [f29])
  89.       ("\^am\^m"    [f30])
  90.       ("\^an\^m"    [f31])
  91.       ("\^ao\^m"    [f32])
  92.  
  93.       ;; Terminfo may know about these, but X won't
  94.       ("\eI"    [key-stab])        ;; Not an X keysym
  95.       ("\eJ"    [key-snext])        ;; Not an X keysym
  96.       ("\eY"    [key-clear])        ;; Not an X keysym
  97.  
  98.       ;; These are totally strange :-)
  99.       ("\eW"    [?\C-?])    ;; Not an X keysym
  100.       ("\^a\^k\^m"    [funct-up])    ;; Not an X keysym
  101.       ("\^a\^j\^m"    [funct-down])    ;; Not an X keysym
  102.       ("\^a\^l\^m"    [funct-right])    ;; Not an X keysym
  103.       ("\^a\^h\^m"    [funct-left])    ;; Not an X keysym
  104.       ("\^a\^m\^m"    [funct-return])    ;; Not an X keysym
  105.       ("\^a\^i\^m"    [funct-tab])    ;; Not an X keysym
  106. ))
  107.  
  108. (defun enable-arrow-keys ()
  109.   "To be called by term-setup-hook. Overrides 6 Emacs standard keys
  110. whose functions are then typed as follows:
  111. C-a    Funct Left-arrow
  112. C-h    M-?
  113. LFD    Funct Return, some modes override down-arrow via LFD
  114. C-k    CLR Line
  115. C-l    Scrn CLR
  116. M-r    M-x move-to-window-line, Funct up-arrow or down-arrow are similar
  117. "
  118.   (interactive)
  119.   (mapcar (function (lambda (key-definition)
  120.               (global-set-key (car key-definition)
  121.                       (nth 1 key-definition))))
  122.       ;; By unsetting C-a and then binding it to a prefix, we
  123.       ;; allow the rest of the function keys which start with C-a
  124.       ;; to be recognized.
  125.       '(("\C-a"    nil)
  126.         ("\C-k"    nil)
  127.         ("\C-j"    nil)
  128.         ("\C-l"    nil)
  129.         ("\C-h"    nil)
  130.         ("\er"    nil)))
  131.   (fset 'enable-arrow-keys nil))
  132.  
  133.  
  134. ;;; Miscellaneous hacks
  135.  
  136. ;;; This is an ugly hack for a nasty problem:
  137. ;;; Wyse 50 takes one character cell to store video attributes (which seems to
  138. ;;; explain width 79 rather than 80, column 1 is not used!!!).
  139. ;;; On killing (C-x C-c) the end inverse code (on column 1 of line 24)
  140. ;;; of the mode line is overwritten AFTER all the y-or-n questions.
  141. ;;; This causes the attribute to remain in effect until the mode line has
  142. ;;; scrolled of the screen.  Suspending (C-z) does not cause this problem.
  143. ;;; On such terminals, Emacs should sacrifice the first and last character of
  144. ;;; each mode line, rather than a whole screen column!
  145. (add-hook 'kill-emacs-hook
  146.       (function (lambda () (interactive)
  147.               (send-string-to-terminal
  148.                (concat "\ea23R" (1+ (frame-width)) "C\eG0")))))
  149.  
  150. ;;; wyse50.el ends here
  151.